(:*******************************************************:)
(: Test: K-SeqCountFunc-2                                :)
(: Written by: Frans Englich                             :)
(: Date: 2007-11-22T11:31:23+01:00                       :)
(: Purpose: A test whose essence is: `count(1, ())`.     :)
(:*******************************************************:)
count(1, ())